home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / lists / mint / l_1199 / 1011 < prev    next >
Encoding:
Internet Message Format  |  1994-08-27  |  4.5 KB
  1. Date: Mon, 14 Feb 94 13:42:01 PST
  2. From: hyc@hanauma.jpl.nasa.gov (Howard Chu)
  3. Message-Id: <9402142142.AA07231@hanauma.jpl.nasa.gov>
  4. To: ersmith@netcom.com, mint@atari.archive.umich.edu
  5. Subject: Re:  user-written interrupt handlers
  6.  
  7. >Date: Mon, 14 Feb 1994 11:47:04 -0800
  8. >From: ersmith@netcom.com (Eric R. Smith)
  9. >
  10. >I would think that any user-supplied interrupt handlers should be provided
  11. >as device drivers; they can then call into the kernel via the table that
  12. >MiNT provides, and don't have to worry about going through trap #1.
  13.  
  14. Well, I decided I was taking an impossible tack, so I tried again from a
  15. different angle... Now I have a new DOS call Psiginter(vec,sig) which will
  16. install an interrupt handler for the user, that will send the calling process
  17. the signal sig when the given interrupt occurs. I basically copied the Do_sig
  18. code in intr.spp, pointing it to a routine that just does post_sig as
  19. specified. Unfortunately, this doesn't work reliably; I get all kinds of
  20. bizarre crashes. I don't suppose any of you could look it over and point out
  21. what I'm not catching...?
  22.  
  23. The particular application is to handle DMA sound interrupts, fyi...
  24.  
  25.  
  26. *** 1.1    1994/02/13 11:00:22
  27. --- intr.spp    1994/02/14 21:40:17
  28. ***************
  29. *** 225,228 ****
  30. --- 225,283 ----
  31.       
  32.   ;
  33. + ; Generic routine for handling any user-specified interrupts. On 68000, the
  34. + ; vector number is stored in the high byte of the program counter.
  35. + ;
  36. +     XDEF    _new_intr
  37. + 
  38. + _new_intr:
  39. + ;    ori.w    #$0700,sr
  40. +     subq.w    #2,sp        ; reserve space for fake frame word
  41. +     move.l    d0,-(sp)    ; save d0
  42. + 
  43. + %ifndef ONLY030
  44. +     tst.w    ($59e.w)    ; is frame format on stack?
  45. +     bne.s    nvec        ; yes, go use it
  46. +     bsr.s    ndummy        ; push PC to stack
  47. +     nop
  48. + ndummy:    
  49. +     move.l    (sp)+,d0    ; pop PC to d0
  50. +     swap    d0        ; move hi word to lo word
  51. +     lsr.w    #6,d0        ; move hi byte into vector offset position
  52. +     andi.b    #$fc,d0        ; clear any garbage from lo 2 bits
  53. +     bra.s    ngot        ; continue
  54. + nvec:
  55. + %endif
  56. +     move.w    12(sp),d0    ; get frame word
  57. +     andi.w    #$ffc,d0    ; mask down to vector offset
  58. + ngot:
  59. +     move.w    d0,4(sp)    ; store vector offset
  60. +     move.l    (sp)+,d0    ; restore d0
  61. +     tst.w    _in_kernel    ; did we interrupt the kernel?
  62. +     bne.s    kern_intr    ; yes ...
  63. +     move.l    _curproc,-(sp)
  64. +     addq.l    #4,(sp)        ; push offset of save area
  65. +     jsr    _build_context    
  66. +     move.w    4(sp),d0    ; pull vector offset from stack to d0
  67. +     move.l    _curproc,a4
  68. +     move.l    (a4),sp        ; get into system stack
  69. +     move.w    d0,-(sp)    ; save vector offset
  70. +     jsr    _enter_kernel    
  71. +     jsr    _sig_user    ; send signal
  72. +     ori.w    #$0700,sr        ; spl7()
  73. +     jsr    _leave_kernel        ; leave kernel
  74. +     addq.w    #4,a4            ; get context save area address
  75. +     move.l    a4,-(sp)        ; push it
  76. +     jsr    _restore_context    ; restore the context
  77. + 
  78. + kern_intr:
  79. +     movem.l    d0-d2/a0-a2,-(sp)    ; save regs
  80. +     move.w    24(sp),-(sp)        ; copy vector offset up
  81. +     jsr    _sig_user        ; send signal
  82. +     addq.w    #2,sp            ; pop copy of vector offset
  83. +     movem.l    (sp)+,d0-d2/a0-a2    ; restore regs
  84. +     addq.w    #2,sp            ; pop vector offset
  85. +     rte
  86. + 
  87. + ;
  88.   ; New bus error handler for memory protection: get the ssp and
  89.   ; put it in the proc structure before calling
  90. *** 1.1    1994/02/14 21:38:04
  91. --- dossig.c    1994/02/14 21:35:30
  92. ***************
  93. *** 211,212 ****
  94. --- 211,289 ----
  95.       return 0;
  96.   }
  97. + 
  98. + /*
  99. +  * p_sigintr: Set an exception vector to send us the specified signal.
  100. +  */
  101. + 
  102. + typedef struct usig {
  103. +     int vec;
  104. +     int sig;
  105. +     PROC *proc;
  106. +     struct usig *next;
  107. + } usig;
  108. + 
  109. + static usig *usiglst;
  110. + extern long mcpu;    
  111. + 
  112. + long ARGS_ON_STACK
  113. + p_siginter(vec, sig)
  114. +     int vec;
  115. +     int sig;
  116. + {
  117. +     extern void new_intr();
  118. +     long vec2;
  119. +     usig *new;
  120. + 
  121. +     if (!sig)        /* ignore signal 0 */
  122. +         return 0;
  123. + 
  124. +     vec2 = (long) new_intr;
  125. + 
  126. + #ifndef ONLY030
  127. +     if (mcpu == 0)
  128. +         vec2 |= vec << 24;
  129. + #endif
  130. +     new = kmalloc(sizeof(usig));
  131. +     new->vec = vec;
  132. +     new->sig = sig;
  133. +     new->proc = curproc;
  134. +     new->next = usiglst;
  135. +     usiglst = new;
  136. + 
  137. +     return setexc(vec, vec2);
  138. + }
  139. + 
  140. + /*
  141. +  * Find the process that requested this interrupt, and send it a signal.
  142. +  */
  143. + void ARGS_ON_STACK
  144. + sig_user(vec)
  145. +     int vec;
  146. + {
  147. +     usig *ptr;
  148. + 
  149. +     vec >>= 2;
  150. +     for (ptr = usiglst; ptr; ptr=ptr->next)
  151. +         if (vec == ptr->vec) {
  152. +             if (ptr->proc->wait_q != ZOMBIE_Q &&
  153. +                 ptr->proc->wait_q != TSR_Q) {
  154. +                 post_sig(ptr->proc, ptr->sig);
  155. +             }
  156. +             if (vec >= 64 && vec < 80) {
  157. +                 /*
  158. +                  * Clear in-service bit for ST MFP interrupts
  159. +                  */
  160. +                 char *mfp, c;
  161. + 
  162. +                 if (vec < 72)        /* Register B */
  163. +                     mfp = (char *)0xfffffa11L;
  164. +                 else            /* Register A */
  165. +                     mfp = (char *)0xfffffa0fL;
  166. +                 c = 1 << (vec & 7);
  167. + 
  168. +                 *mfp = ~c;
  169. +             }
  170. +                 
  171. +             break;
  172. +         }
  173. + }
  174.